home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / DDJ0992.ARJ / SALTER.LS2 < prev    next >
INI File  |  1992-06-09  |  4KB  |  180 lines
  1. [LISTING TWO]
  2.  
  3. ; psequate.inc - a subset of standard periscope equates
  4.  
  5.             ; interrupt equates
  6.  
  7. int0     equ 0*4            ; divide by zero
  8. int1    equ 1*4         ; trap
  9. int2    equ 2*4         ; nmi
  10. int3    equ 3*4         ; breakpoint
  11. int4    equ 4*4         ; into
  12. int5    equ 5*4         ; print screen
  13. int6    equ 6*4         ; at illegal opcode
  14. int8    equ 8*4         ; irq 0 - timer tick
  15. int9    equ 9*4            ; irq 1 - keyboard 
  16. int0a    equ 0ah*4        ; irq 2
  17. int0b    equ 0bh*4        ; irq 3 - com 2
  18. int0c    equ 0ch*4        ; irq 4 - com 1
  19. int0d    equ 0dh*4        ; irq 5 - segment wrap
  20. int0e    equ 0eh*4        ; irq 6
  21. int0f    equ 0fh*4        ; irq 7
  22. int10    equ 10h*4        ; video
  23. int11    equ 11h*4        ; equipment check
  24. int13    equ 13h*4        ; diskette
  25. int15    equ 15h*4        ; sys req
  26. int16    equ 16h*4        ; keyboard data
  27. int19    equ 19h*4        ; short boot
  28. int1c    equ 1ch*4        ; user timer tick
  29. int1e    equ 1eh*4        ; diskette parms
  30. int21    equ 21h*4        ; dos services
  31. int25    equ 25h*4        ; abs read
  32. int26    equ 26h*4        ; abs write
  33. int28    equ 28h*4        ; dos idle
  34. int2f    equ 2fh*4        ; dos multiplex
  35. int31    equ 31h*4        ; dpmi
  36. int40    equ 40h*4        ; alt diskette int
  37. int41    equ 41h*4        ; used by enhanced mode Windows
  38. int43    equ 43h*4        ; ega save
  39. int60    equ 60h*4        ; start of user ints
  40.  
  41.             ; character-building equates
  42.  
  43. ctrlbreak equ 0         ; ctrl-break
  44. ctrla    equ 1            ; ctrl-a
  45. ctrlb    equ 2            ; ctrl-b
  46. ctrlc    equ 3            ; ctrl-c
  47. ctrld    equ 4            ; ctrl-d
  48. ctrle    equ 5            ; ctrl-e
  49. ctrlf    equ 6            ; ctrl-f
  50. ctrlg    equ 7            ; ctrl-g
  51. ctrlh    equ 8            ; ctrl-h
  52. ctrli    equ 9            ; ctrl-i
  53. ctrlj    equ 0ah         ; ctrl-j
  54. ctrlk    equ 0bh         ; ctrl-k
  55. ctrll    equ 0ch         ; ctrl-l
  56. ctrlm    equ 0dh         ; ctrl-m
  57. ctrln    equ 0eh         ; ctrl-n
  58. ctrlo    equ 0fh         ; ctrl-o
  59. ctrlp    equ 10h         ; ctrl-p
  60. ctrlq    equ 11h         ; ctrl-q
  61. ctrlr    equ 12h         ; ctrl-r
  62. ctrls    equ 13h         ; ctrl-s
  63. ctrlt    equ 14h         ; ctrl-t
  64. ctrlu    equ 15h         ; ctrl-u
  65. ctrlv    equ 16h         ; ctrl-v
  66. ctrlw    equ 17h         ; ctrl-w
  67. ctrlx    equ 18h         ; ctrl-x
  68. ctrly    equ 19h         ; ctrl-y
  69. ctrlz    equ 1ah         ; ctrl-z
  70.  
  71.             ; ascii control characters
  72.  
  73. nul    equ    00
  74. soh    equ    01
  75. stx    equ    02
  76. etx    equ    03
  77. eot    equ    04
  78. enq    equ    05
  79. ack    equ    06
  80. bel    equ    07
  81. backsp    equ    08
  82. tab    equ    09
  83. lf    equ    10
  84. ff    equ    12
  85. cr    equ    13
  86. dle    equ    16
  87. dc1    equ    17
  88. dc2    equ    18
  89. dc3    equ    19
  90. dc4    equ    20
  91. nak    equ    21
  92. can    equ    24
  93. eof    equ    26
  94. escape    equ    27
  95. space    equ     ' '             ; space
  96. addrsep equ     '&'             ; separator for 32-bit addresses
  97. addrsepv equ     '|'             ; separator for v86 addresses
  98. comma    equ     ','        ; comma
  99. colon    equ     ':'        ; colon
  100. stile    equ     '|'        ; stile
  101.  
  102.             ; port equates
  103.  
  104. eoi    equ 20h         ; end of interrupt
  105. eoi2    equ 0a0h        ; 2nd 8259 (AT only)
  106. kbdata    equ 60h         ; keyboard data (port a)
  107. portb    equ 61h         ; control port b
  108. atkb    equ 64h         ; at keyboard command port
  109. colorp    equ 3d8h        ; color/graphics mode-select register
  110. nmipc    equ 0a0h        ; nmi enable port on PC & XT
  111. nmiat    equ 70h         ; nmi enable port on AT
  112.  
  113.         ; bit definitions
  114.  
  115. bit00on    equ 0001h
  116. bit01on    equ 0002h
  117. bit02on    equ 0004h 
  118. bit03on    equ 0008h
  119. bit04on    equ 0010h
  120. bit05on    equ 0020h
  121. bit06on    equ 0040h 
  122. bit07on    equ 0080h
  123. bit08on    equ 0100h
  124. bit09on    equ 0200h
  125. bit10on    equ 0400h 
  126. bit11on    equ 0800h
  127. bit12on    equ 1000h
  128. bit13on    equ 2000h
  129. bit14on    equ 4000h 
  130. bit15on    equ 8000h
  131.  
  132. bit16on    equ 00010000h
  133. bit17on    equ 00020000h
  134. bit18on    equ 00040000h 
  135. bit19on    equ 00080000h
  136. bit20on    equ 00100000h
  137. bit21on    equ 00200000h
  138. bit22on    equ 00400000h 
  139. bit23on    equ 00800000h
  140. bit24on    equ 01000000h
  141. bit25on    equ 02000000h
  142. bit26on    equ 04000000h 
  143. bit27on    equ 08000000h
  144. bit28on    equ 10000000h
  145. bit29on    equ 20000000h
  146. bit30on    equ 40000000h 
  147. bit31on    equ 80000000h
  148.  
  149. ;    @save and @restore
  150.  
  151. @save    macro    p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12
  152.     ifidn    <p1>, <all>
  153.         ifndef    PUSHall
  154.             extrn    PUSHall: near
  155.         endif
  156.         call    PUSHall
  157.     else
  158.         irp    x,<p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12>
  159.         ifnb    <x>
  160.         push    x
  161.         endif
  162.         endm
  163.     endif
  164.  
  165. @restore macro
  166.     ifidn    <p1>, <all>
  167.         ifndef    POPall
  168.             extrn    POPall: near
  169.         endif
  170.         call    POPall
  171.     else
  172.         irp    x,<p12,p11,p10,p9,p8,p7,p6,p5,p4,p3,p2,p1>
  173.         ifnb    <x>
  174.         pop    x
  175.         endif
  176.         endm
  177.     endif
  178.     endm
  179.     endm
  180.